home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / gblib1 / gblib.bas < prev    next >
BASIC Source File  |  1995-05-09  |  7KB  |  127 lines
  1. Option Explicit
  2. Type TRECT
  3.      Left As Integer
  4.      Top As Integer
  5.      Right As Integer
  6.      Bottom As Integer
  7. End Type
  8. Declare Function LoadDLLBitmap Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_BITMAP_ResName As String, ByVal hWnd As Integer, ByVal Stretch As Integer) As Integer
  9. Declare Function LoadDLLBitmapTo Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_BITMAP_ResName As String, ByVal hWnd As Integer, ByVal i_Left As Integer, ByVal i_Top As Integer, ByVal i_Right As Integer, ByVal i_Bottom As Integer) As Integer
  10. Declare Function LoadDLLBitmapFrom Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_BITMAP_ResName As String, ByVal hWnd As Integer, ByVal i_Left As Integer, ByVal i_Top As Integer, ByVal i_Right As Integer, ByVal i_Bottom As Integer) As Integer
  11. Declare Function PlayDLLWave Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_WAVE_ResName As String) As Integer
  12. Declare Function GetDLLText Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_TEXT_ResName As String, ByVal sz_Buffer As String, i_BufferMaxLen As Integer) As Integer
  13. Declare Function GetDLLBitmapSize Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_BITMAP_ResName As String, MyRECT As TRECT) As Integer
  14. Declare Function LoadDLLDialog Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_DIALOG_ResName As String, ByVal hWind As Integer) As Integer
  15. Declare Function LoadDLLCursor Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_CURSOR_ResName As String, ByVal hWind As Integer) As Integer
  16.  
  17. Declare Function LoadDLLIcon Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_ICO_Resname As String, ByVal hWind As Integer) As Integer
  18. Declare Function LoadEXEIcon Lib "gblib1.dll" (ByVal hWind As Integer, ByVal szFilename As String) As Integer
  19. Declare Function LoadDLLIconXY Lib "gblib1.dll" (ByVal sz_DLLFile As String, ByVal sz_ICO_Resname As String, ByVal hWind As Integer, ByVal i_Left As Integer, ByVal i_Top As Integer) As Integer
  20. Declare Function LoadEXEIconXY Lib "gblib1.dll" (ByVal hWind As Integer, ByVal szFilename As String, ByVal i_Left As Integer, ByVal i_Top As Integer) As Integer
  21.  
  22. Declare Function SetCursor Lib "User" (ByVal hCursor As Integer) As Integer
  23. Declare Function SetArrow Lib "gblib1.dll" (ByVal hWind As Integer) As Integer
  24. Declare Function ModalCalc Lib "gblib1.dll" () As Integer
  25. Declare Function ModalNotePadExec Lib "gblib1.dll" (ByVal szFilePath As String) As Integer
  26. Declare Function ModalNotePad Lib "gblib1.dll" () As Integer
  27. Declare Function GBSetCursorPos Lib "gblib1.dll" (ByVal hWind As Integer, ByVal XPos As Integer, ByVal YPos As Integer) As Integer
  28. Declare Function GBDecompress Lib "gblib1.dll" (ByVal InfilePath As String, ByVal OutfilePath As String) As Integer
  29.  
  30. Declare Function GetWaveVendorID Lib "gblib1.dll" () As Integer
  31. Declare Function GetWaveProductID Lib "gblib1.dll" () As Integer
  32. Declare Function GetWaveDriverVersion Lib "gblib1.dll" (Major As Integer, Minor As Integer) As Integer
  33. Declare Function GetWaveProductName Lib "gblib1.dll" (ByVal szBuffer As String, i_BufferLen As Integer) As Integer
  34. Declare Function GetWaveNumChannels Lib "gblib1.dll" () As Integer
  35.  
  36. Declare Function GetMIDIVendorID Lib "gblib1.dll" () As Integer
  37. Declare Function GetMIDIProductID Lib "gblib1.dll" () As Integer
  38. Declare Function GetMIDIDriverVersion Lib "gblib1.dll" (Major As Integer, Minor As Integer) As Integer
  39. Declare Function GetMIDIProductName Lib "gblib1.dll" (ByVal szBuffer As String, i_BufferLen As Integer) As Integer
  40. Declare Function GetMIDIVoices Lib "gblib1.dll" () As Integer
  41. Declare Function GetMIDINotes Lib "gblib1.dll" () As Integer
  42. Declare Function GetMIDINumChannels Lib "gblib1.dll" () As Integer
  43.  
  44. Declare Function IsMIDIExternalSynth Lib "gblib1.dll" () As Integer
  45. Declare Function IsMIDISquareWaveSynth Lib "gblib1.dll" () As Integer
  46. Declare Function IsMIDIFMSynth Lib "gblib1.dll" () As Integer
  47. Declare Function IsMIDIMapper Lib "gblib1.dll" () As Integer
  48.  
  49. Declare Function WillMidiDoVolume Lib "gblib1.dll" () As Integer
  50. Declare Function WillMidiDoLRVolume Lib "gblib1.dll" () As Integer
  51. Declare Function WillMidiDoCache Lib "gblib1.dll" () As Integer
  52.  
  53. Declare Function WillPlay811Mono Lib "gblib1.dll" () As Integer
  54. Declare Function WillPlay811Stereo Lib "gblib1.dll" () As Integer
  55. Declare Function WillPlay1611Mono Lib "gblib1.dll" () As Integer
  56. Declare Function WillPlay1611Stereo Lib "gblib1.dll" () As Integer
  57.  
  58. Declare Function WillPlay822Mono Lib "gblib1.dll" () As Integer
  59. Declare Function WillPlay822Stereo Lib "gblib1.dll" () As Integer
  60. Declare Function WillPlay1622Mono Lib "gblib1.dll" () As Integer
  61. Declare Function WillPlay1622Stereo Lib "gblib1.dll" () As Integer
  62.  
  63. Declare Function WillPlay844Mono Lib "gblib1.dll" () As Integer
  64. Declare Function WillPlay844Stereo Lib "gblib1.dll" () As Integer
  65. Declare Function WillPlay1644Mono Lib "gblib1.dll" () As Integer
  66. Declare Function WillPlay1644Stereo Lib "gblib1.dll" () As Integer
  67.  
  68. Declare Function GetFreeSystemResources Lib "User" (ByVal fuSysResource As Integer) As Integer
  69. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  70. Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  71.  
  72. Declare Sub GetClientZero Lib "gblib1.dll" (ByVal hWind As Integer, i_Left As Integer, i_Top As Integer)
  73. Declare Sub InvertRect Lib "User" (ByVal hDC As Integer, lpRect As TRECT)
  74.  
  75.  
  76. Declare Sub StartWait Lib "gblib1.dll" (ByVal hWind As Integer)
  77. Declare Sub StopWait Lib "gblib1.dll" ()
  78. Declare Sub WaitOne Lib "gblib1.dll" ()
  79.  
  80. Declare Sub SetUpJoyStick Lib "gblib1.dll" (ByVal hWind As Integer)
  81. Declare Sub UnSetUpJoystick Lib "gblib1.dll" ()
  82. Declare Sub GetJoyPos Lib "gblib1.dll" (XPos As Long, YPos As Long, LButton As Integer, RButton As Integer)
  83.  
  84. Declare Sub GBPutOnTop Lib "gblib1.dll" (ByVal hWind As Integer)
  85. Declare Sub GBNotOnTop Lib "gblib1.dll" (ByVal hWind As Integer)
  86.  
  87. Declare Sub SubClassIt Lib "gblib1.dll" (ByVal hWind As Integer)
  88. Declare Sub UnSubClassIt Lib "gblib1.dll" ()
  89.  
  90. Declare Sub SpeakerBeep Lib "gblib1.dll" ()
  91. Declare Sub WAITFORL Lib "gblib1.dll" (ByVal MilliSeconds As Long)
  92. Declare Sub WaitFor Lib "gblib1.dll" (ByVal Seconds As Integer)
  93. Declare Sub MakeUAE Lib "gblib1.dll" ()
  94. Declare Sub GBClientToScreenRECT Lib "gblib1.dll" (ByVal hWind As Integer, ScreenRECT As TRECT)
  95. Declare Sub DestroyDLLCursor Lib "gblib1.dll" ()
  96. Declare Sub About Lib "gblib1.dll" (ByVal hWind As Integer)
  97. Declare Sub Gordon Lib "gblib1.dll" ()
  98. Declare Sub Marts Lib "gblib1.dll" ()
  99. Declare Sub Click Lib "gblib1.dll" ()
  100. Declare Sub Clik Lib "gblib1.dll" ()
  101. Declare Sub Done Lib "gblib1.dll" ()
  102. Declare Sub SystemStart Lib "gblib1.dll" ()
  103. Declare Sub SystemEnd Lib "gblib1.dll" ()
  104. Declare Sub SetCursorPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)
  105.  
  106.  
  107. Global ARECT As TRECT
  108. Global WINDIR As String
  109. Global SYSDIR As String
  110.  
  111. Sub GetWinDirs ()
  112.  
  113. Dim i_Length As Integer
  114. Dim sz_Buffer As String * 255
  115. Dim i_Size As Integer
  116.  
  117. i_Size = 255' //Length of buffer//
  118. i_Length = GetWindowsDirectory(sz_Buffer, i_Size)
  119. WINDIR = Left$(sz_Buffer, i_Length)
  120.  
  121. i_Size = 255' //Length of buffer//
  122. i_Length = GetSystemDirectory(sz_Buffer, i_Size)
  123. SYSDIR = Left$(sz_Buffer, i_Length)
  124.  
  125. End Sub
  126.  
  127.